home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / EDISON.DIR / 00063_Script_Flourscope parent < prev    next >
Text File  |  1997-05-26  |  2KB  |  86 lines
  1. --p Flourscope
  2.  
  3.  
  4. -- gFlourscopeObj
  5. property pHandSprite, pHandCast
  6. property pMouseHOffSet, pMouseVOffSet
  7. property pConstrainRect, pActivateSprite
  8. property pActive
  9.  
  10. global gUtilityObj, gScoreEventObj
  11. ---------------------------------------------------------------------------------------------------------
  12. on mInit me
  13.   
  14.   set pHandCast = the number of cast "EFLRHAND.PIC"
  15.   set pHandSprite = 5
  16.   set pActivateSprite = 3
  17.   
  18.   mSetCursors(gUtilityObj,[7:#OPERATE])
  19.   return( me )
  20.   
  21. end mInit
  22.  
  23. ---------------------------------------------------------------------------------------------------------
  24. on mActivate me
  25.   
  26.   mUnSetOneCursor (gUtilityObj, 7)
  27.   mSetCursors(gUtilityObj,[4:#OPERATE,2:#OPERATE])
  28.   set pConstrainRect = the rect of sprite pActivateSprite
  29.   set pMouseHOffSet = the mouseh
  30.   set pMouseVOffSet = the mousev 
  31.   puppetsprite pHandSprite, True
  32.   set the castnum of sprite pHandSprite = 0
  33.   
  34. end mActivate
  35. ---------------------------------------------------------------------------------------------------------
  36. on mPerform me
  37.   
  38.   if rollover( pActivateSprite ) then 
  39.     set pActive = TRUE
  40.     set the castnum of sprite pHandSprite = pHandCast
  41.     set the cursor of sprite 2 = 200
  42.   end if
  43.   
  44.   set mousePnt = point(the mouseh, the mousev)
  45.   set newloch = the mouseh
  46.   set newlocv = the mousev
  47.   
  48.     if newlocv > 335 then
  49.       set pActive = FALSE
  50.       set the cursor of sprite 2 = 0
  51.       set the castnum of sprite pHandSprite = 0
  52.     end if
  53.   
  54.   if pActive then
  55.     
  56.     if newlocv < 210 then set newlocv = 210
  57.     if newloch > 300  then set newloch = 300 
  58.     else if newloch <  193 then set newloch =  193
  59.     set the loch of sprite pHandSprite = newloch
  60.     set the locv of sprite pHandSprite = newlocv
  61.     
  62.   end if
  63.   
  64.   
  65.   go the frame
  66.   
  67. end mperform
  68. ---------------------------------------------------------------------------------------------------------
  69. on mclose me
  70.   
  71.   puppetsprite pHandSprite, false
  72.   munSetCursors(gUtilityObj)
  73.   
  74. end mclose
  75. ---------------------------------------------------------------------------------------------------------
  76. on mPullout me
  77.   
  78.   mclose me
  79.   mGoFrameAndPullOut (gScoreEventObj, "Fluoroscope BO")
  80.   
  81. end mPullout
  82. ---------------------------------------------------------------------------------------------------------
  83.  
  84.  
  85.  
  86.